(keyboard-escape-quit): Exit recursive edits,

and switch away from buffers whose names start with space.

diff --git a/lisp/simple.el b/lisp/simple.el
index 2c9a39bce4e7e21ef8984c7c536d151191011221..7d45abc183b28d0131d81974fa78877f59f82a74 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2843,10 +2843,14 @@ or go back to just one window (by deleting all but the selected window)."
        ((and transient-mark-mode
              mark-active)
         (deactivate-mark))
+       ((> (recursion-depth) 0)
+        (exit-recursive-edit))
        (buffer-quit-function
         (funcall buffer-quit-function))
        ((not (one-window-p t))
-        (delete-other-windows))))
+        (delete-other-windows))
+       ((string-match "^ \\*" (buffer-name (current-buffer)))
+        (bury-buffer))))
 
 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
 \f